home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zi.d64 / txt.echo < prev    next >
Text File  |  2007-03-01  |  778b  |  49 lines
  1. ╙┼╠┼├╘ "╠╨: & ─╙:"
  2.  
  3. BY ─ICK ╦LINGENS
  4. ─UTCH ├╧═┴╠ ╒SERS ╟ROUP
  5.  
  6.  
  7. ╙OME OPERATING SYSTEMS ALLOW THE
  8. PROGRAM USER TO DIRECT SCREEN OUTPUT
  9. OF A PROGRAM ALSO TO THE PRINTER.
  10.  
  11. ┘OU CAN DO THIS IN ├╧═┴╠ BY SOME
  12. PROCEDURES TOO.
  13.  
  14. ╨╥╧├ PR'NUM(X)
  15.  ╙┼╠┼├╘ "LP:"
  16.  ╨╥╔╬╘ X
  17.  ╙┼╠┼├╘ "DS:"
  18.  ╨╥╔╬╘ X
  19. ┼╬─╨╥╧├ PR'NUM
  20.  
  21. ╨╥╧├ PR'STR(X$)
  22.  ╙┼╠┼├╘ "LP:"
  23.  ╨╥╔╬╘ X$
  24.  ╙┼╠┼├╘ "DS:"
  25.  ╨╥╔╬╘ X
  26. ┼╬─╨╥╧├ PR'STR
  27.  
  28.  
  29. ╫E DEVELOPED A PACKAGE THAT ECHOES
  30. ALL PRINTER OUTPUT IN A ╨╥╔╬╘
  31. STATEMENT ON THE SCREEN.
  32.  
  33. ╔ ILLUSTRATE THE PACKAGE WITH THE
  34. FOLLOWING PROGRAM:
  35.  
  36. ╒╙┼ ECHO
  37. SETECHO(╘╥╒┼) // ECHO ON
  38. ╙┼╠┼├╘ ╧╒╘╨╒╘ "LP:"
  39. ╞╧╥ T:=1 ╘╧ 3 ─╧
  40.  // NOW DOUBLE PRINT
  41.  ╨╥╔╬╘ "╘HIS IS THE ",T,". LINE"
  42. ┼╬─╞╧╥ T
  43. ╙┼╠┼├╘ ╧╒╘╨╒╘ "DS:"
  44. ╨╥╔╬╘ "╥EADY" // ONLY ON THE SCREEN
  45. SETECHO(╞┴╠╙┼) // ECHO OFF
  46. ┼╬─ ""
  47.  
  48. ┴N OTHER EXAMPLE IS ON THE DISK.
  49.